object frmDefineDataSouce: TfrmDefineDataSouce
  Left = 343
  Top = 192
  Caption = 'frmDefineDataSouce'
  ClientHeight = 454
  ClientWidth = 587
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  DesignSize = (
    587
    454)
  PixelsPerInch = 96
  TextHeight = 12
  object cxLabel1: TcxLabel
    Left = 14
    Top = 17
    Caption = #21517#31216#65306
    Transparent = True
  end
  object edtName: TcxDBTextEdit
    Left = 67
    Top = 15
    Anchors = [akLeft, akTop, akRight]
    DataBinding.DataField = 'name'
    DataBinding.DataSource = dsMaster
    TabOrder = 1
    Width = 407
  end
  object lstData: TcxListBox
    Left = 14
    Top = 66
    Width = 121
    Height = 154
    ItemHeight = 12
    Items.Strings = (
      #31354#20540'('#26080#25968#25454')'
      #26469#28304#20110#31185#30446#20313#39069
      #26469#28304#20110#34920#20869#39033#30446
      #26631#39064#26639)
    TabOrder = 2
    OnClick = lstDataClick
  end
  object grdDefData: TcxGrid
    Left = 14
    Top = 236
    Width = 460
    Height = 205
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 3
    object viewDefData: TcxGridDBTableView
      Navigator.Buttons.CustomButtons = <>
      DataController.DataModeController.GridMode = True
      DataController.DataSource = dsSheetDtl
      DataController.Summary.DefaultGroupSummaryItems = <>
      DataController.Summary.FooterSummaryItems = <>
      DataController.Summary.SummaryGroups = <>
      OptionsData.Appending = True
      OptionsData.Inserting = False
      OptionsView.ColumnAutoWidth = True
      OptionsView.GroupByBox = False
      OptionsView.Indicator = True
      OptionsView.IndicatorWidth = 25
      Styles.Background = MainDM.bslBackGroup
      Styles.ContentEven = MainDM.bsEven
      Styles.ContentOdd = MainDM.bsOdd
      Styles.Selection = MainDM.bsSelect
      Styles.Header = MainDM.bsTitle
      Styles.Indicator = MainDM.bslBackGroup
      OnCustomDrawIndicatorCell = viewDefDataCustomDrawIndicatorCell
      object viewDefDatacashflowid: TcxGridDBColumn
        Caption = #29616#37329#27969#37327
        DataBinding.FieldName = 'cashflowid'
        Visible = False
        Width = 80
      end
      object viewDefDatasubid: TcxGridDBColumn
        Caption = #31185#30446#21517#31216
        DataBinding.FieldName = 'subid'
        Options.Editing = False
      end
      object viewDefDataZjTag: TcxGridDBColumn
        Caption = #35745#31639#26041#24335
        DataBinding.FieldName = 'ZjTag'
        PropertiesClassName = 'TcxComboBoxProperties'
        Properties.Items.Strings = (
          #21152
          #20943)
      end
      object viewDefDataDctag: TcxGridDBColumn
        Caption = #21462#25968#26041#24335
        DataBinding.FieldName = 'Dctag'
        PropertiesClassName = 'TcxComboBoxProperties'
        Properties.Items.Strings = (
          #20313#39069
          #20511#26041#20313#39069
          #36151#26041#20313#39069)
      end
    end
    object viewDefItem: TcxGridDBTableView
      Navigator.Buttons.CustomButtons = <>
      DataController.DataModeController.GridMode = True
      DataController.DataSource = dsSheetDtl
      DataController.Summary.DefaultGroupSummaryItems = <>
      DataController.Summary.FooterSummaryItems = <>
      DataController.Summary.SummaryGroups = <>
      OptionsView.ColumnAutoWidth = True
      OptionsView.GroupByBox = False
      OptionsView.Indicator = True
      OptionsView.IndicatorWidth = 25
      Styles.Background = MainDM.bslBackGroup
      Styles.ContentEven = MainDM.bsEven
      Styles.ContentOdd = MainDM.bsOdd
      Styles.Selection = MainDM.bsSelect
      Styles.Header = MainDM.bsTitle
      OnCustomDrawIndicatorCell = viewDefDataCustomDrawIndicatorCell
      object viewDefItemsequno: TcxGridDBColumn
        Caption = #39033#30446#21517#31216
        DataBinding.FieldName = 'sequno'
      end
      object viewDefItemzjtag: TcxGridDBColumn
        Caption = #35745#31639#26041#24335
        DataBinding.FieldName = 'zjtag'
        PropertiesClassName = 'TcxComboBoxProperties'
        Properties.Items.Strings = (
          #21152
          #20943)
      end
    end
    object lvlDefData: TcxGridLevel
      GridView = viewDefData
    end
    object lvlDefItem: TcxGridLevel
      GridView = viewDefItem
    end
  end
  object btnSaveAppend: TcxButton
    Left = 496
    Top = 16
    Width = 75
    Height = 25
    Anchors = [akTop, akRight]
    Caption = #20445#23384#26032#22686
    TabOrder = 4
    OnClick = btnSaveAppendClick
  end
  object btnOK: TcxButton
    Left = 496
    Top = 380
    Width = 75
    Height = 25
    Anchors = [akRight, akBottom]
    Caption = #30830#23450
    ModalResult = 1
    TabOrder = 5
    OnClick = btnOKClick
  end
  object btnPrior: TcxButton
    Left = 496
    Top = 54
    Width = 75
    Height = 25
    Anchors = [akTop, akRight]
    Caption = #19978#19968#26465
    TabOrder = 6
    OnClick = btnPriorClick
  end
  object btnNext: TcxButton
    Left = 496
    Top = 90
    Width = 75
    Height = 25
    Anchors = [akTop, akRight]
    Caption = #19979#19968#26465
    TabOrder = 7
    OnClick = btnNextClick
  end
  object btnCancel: TcxButton
    Left = 496
    Top = 416
    Width = 75
    Height = 25
    Anchors = [akRight, akBottom]
    Cancel = True
    Caption = #21462#28040
    ModalResult = 2
    TabOrder = 8
  end
  object btnNewItem: TcxButton
    Left = 496
    Top = 237
    Width = 75
    Height = 25
    Anchors = [akTop, akRight]
    Caption = #28155#21152#39033#30446
    TabOrder = 9
    OnClick = btnNewItemClick
  end
  object btnDelItem: TcxButton
    Left = 496
    Top = 273
    Width = 75
    Height = 25
    Anchors = [akTop, akRight]
    Caption = #21024#38500#39033#30446
    TabOrder = 10
    OnClick = btnDelItemClick
  end
  object pgcDefine: TcxPageControl
    Left = 156
    Top = 48
    Width = 317
    Height = 172
    Anchors = [akLeft, akTop, akRight]
    TabOrder = 11
    Properties.ActivePage = tsSub
    Properties.CustomButtons.Buttons = <>
    ClientRectBottom = 172
    ClientRectRight = 317
    ClientRectTop = 23
    object tsSub: TcxTabSheet
      Caption = #31185#30446
      ImageIndex = 0
      object cxGroupBox2: TcxGroupBox
        Left = 0
        Top = 0
        Align = alClient
        TabOrder = 0
        Height = 149
        Width = 317
        object edtBSubid: TcxDBLookupComboBox
          Tag = 65
          Left = 20
          Top = 40
          DataBinding.DataField = 'bsubid'
          DataBinding.DataSource = dsSub
          Properties.ListColumns = <>
          TabOrder = 0
          Width = 145
        end
        object edtESubid: TcxDBLookupComboBox
          Tag = 65
          Left = 20
          Top = 76
          DataBinding.DataField = 'esubid'
          DataBinding.DataSource = dsSub
          Properties.ListColumns = <>
          TabOrder = 1
          Width = 145
        end
        object cxLabel2: TcxLabel
          Left = 20
          Top = 20
          Caption = #31185#30446#65306
          Transparent = True
        end
        object cxLabel4: TcxLabel
          Left = 20
          Top = 60
          Caption = #33267#65306
          Transparent = True
        end
        object lstSub: TcxListBox
          Left = 180
          Top = 34
          Width = 121
          Height = 110
          ItemHeight = 12
          Items.Strings = (
            #20313#39069
            #20511#26041#20313#39069
            #36151#26041#20313#39069
            #26399#21021#20313#39069
            #20511#26041#26399#21021#20313#39069
            #36151#26041#26399#21021#20313#39069
            #24180#21021#20313#39069
            #20511#26041#24180#21021#20313#39069
            #36151#26041#24180#21021#20313#39069
            #20511#26041#26412#24180#32047#35745#21457#29983#39069
            #36151#26041#26412#24180#32047#35745#21457#29983#39069
            #20511#26041#21457#29983#39069
            #36151#26041#21457#29983#39069
            #26412#26399#23454#38469#21457#29983#39069
            #26412#24180#23454#38469#21457#29983#39069)
          TabOrder = 4
        end
        object cxTextEdit2: TcxTextEdit
          Left = 180
          Top = 15
          Enabled = False
          Properties.Alignment.Horz = taCenter
          StyleDisabled.BorderColor = 16776176
          StyleDisabled.Color = clGray
          StyleDisabled.TextColor = clWhite
          TabOrder = 5
          Text = #21462#25968#26041#24335
          Width = 121
        end
      end
    end
    object tsItem: TcxTabSheet
      Caption = #39033#30446
      ImageIndex = 1
      object cxGroupBox1: TcxGroupBox
        Left = 0
        Top = 0
        Align = alClient
        TabOrder = 0
        Height = 149
        Width = 317
        object cxLabel3: TcxLabel
          Left = 28
          Top = 32
          Caption = #34920#20869#39033#30446#65306
          Transparent = True
        end
        object edtItem: TcxComboBox
          Left = 100
          Top = 28
          TabOrder = 1
          Text = 'edtItem'
          Width = 201
        end
      end
    end
  end
  object rbAdd: TcxRadioButton
    Left = 235
    Top = 199
    Width = 49
    Height = 17
    Caption = #21152
    Checked = True
    TabOrder = 12
    TabStop = True
    Transparent = True
  end
  object lblCalc: TcxLabel
    Left = 171
    Top = 199
    Caption = #35745#31639#26041#24335#65306
    Transparent = True
  end
  object rbDec: TcxRadioButton
    Left = 286
    Top = 199
    Width = 49
    Height = 17
    Caption = #20943
    TabOrder = 14
    Transparent = True
  end
  object cxTextEdit1: TcxTextEdit
    Left = 14
    Top = 47
    Enabled = False
    Properties.Alignment.Horz = taCenter
    StyleDisabled.BorderColor = 16776176
    StyleDisabled.Color = clGray
    StyleDisabled.TextColor = clWhite
    TabOrder = 15
    Text = #25968#25454#26469#28304#26041#24335
    Width = 121
  end
  object btnSave: TcxButton
    Left = 496
    Top = 323
    Width = 75
    Height = 25
    Anchors = [akRight, akBottom]
    Caption = #20445#23384
    TabOrder = 16
    OnClick = btnSaveClick
  end
  object dsSheetDtl: TDataSource
    DataSet = qrySheetDtl
    Left = 132
    Top = 252
  end
  object qrySheetDtl: TUniQuery
    SQLInsert.Strings = (
      'Insert into TFD_SHEETDTL(KeyID,'
      'SecID,'
      'YMTag,'
      'ZJTag,'
      'FDTypeID,'
      'SubID,'
      'SubCode,'
      'SequNo,'
      'FixValue,'
      'CashFlowID,'
      'IOTag,'
      'DCTag'
      ')'
      'Values'
      '(:KeyID,'
      ':SecID,'
      ':YMTag,'
      ':ZJTag,'
      ':FDTypeID,'
      ':SubID,'
      ':SubCode,'
      ':SequNo,'
      ':FixValue,'
      ':CashFlowID,'
      ':IOTag,'
      ':DCTag)')
    SQLDelete.Strings = (
      
        'Delete from TFD_SHEETDTL where KeyID=:OLD_KeyID and SecID=:OLD_S' +
        'ecID')
    SQLUpdate.Strings = (
      'Update TFD_SHEETDTL set '
      'KeyID=:KeyID,'
      'SecID=:SecID,'
      'YMTag=:YMTag,'
      'ZJTag=:ZJTag,'
      'FDTypeID=:FDTypeID,'
      'SubID=:SubID,'
      'SubCode=:SubCode,'
      'SequNo=:SequNo,'
      'FixValue=:FixValue,'
      'CashFlowID=:CashFlowID,'
      'IOTag=:IOTag,'
      'DCTag=:DCTag'
      ' where KeyID=:OLD_KeyID and SecID=:OLD_SecID')
    Connection = MainDM.UniConn
    CachedUpdates = True
    Options.QueryRecCount = True
    IndexFieldNames = 'secid'
    Left = 52
    Top = 228
  end
  object dsMaster: TDataSource
    Left = 368
    Top = 32
  end
  object dsSub: TDataSource
    DataSet = cdsSub
    Left = 516
    Top = 172
  end
  object cdsSub: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 488
    Top = 128
    object cdsSubbsubid: TIntegerField
      FieldName = 'bsubid'
    end
    object cdsSubesubid: TIntegerField
      FieldName = 'esubid'
    end
  end
end
